home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / Q-R / QDPat.cpt / Menu Utilities < prev    next >
Encoding:
Text File  |  1989-10-23  |  497 b   |  36 lines  |  [TEXT/PJMM]
  1. unit MenuUtilities;
  2.  
  3. interface
  4.  
  5.     uses
  6.         InitTheMenus, Globals, DrawMondrian;
  7.  
  8.  
  9.  
  10.     procedure DrawShapes (Geo: ShapeType);
  11.     procedure UncheckMenus;
  12.  
  13. implementation
  14.  
  15.  
  16.     procedure DrawShapes (Geo: ShapeType);
  17.     begin
  18.         case Geo of
  19.             rectangle: 
  20.                 GenerateRectangles;
  21.             square: 
  22.                 GenerateSquares;
  23.             circle: 
  24.                 GenerateCircles;
  25.             triangle: 
  26.                 GenerateTriangles;
  27.         end;
  28.     end;
  29.     procedure UncheckMenus;
  30.         var
  31.             j: integer;
  32.     begin
  33.         for j := 1 to 4 do
  34.             CheckItem(M_Shapes, j, false);
  35.     end;
  36. end.